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TRANSMITSTASK: 
DO; 

/x , ptr/selector redefinition schtick Oe 

ceclare pointer_overlay literally “structure( 


base selector,s,/* selector part */ 


offset word /* offset part x / 
had ; . 
[x specific declarations */ 


DECLARE OCL LITERALLY “DECLARE”, 
DCL. TOKEN LITERALLY “SELECTOR”; 
OCL FOREVER LITERALLY ‘WHILE 17; 
OCL XMITSPCRT LITERALLY °07%; 

DCL RCVSPORT LITERALLY °17%, 

DCL E€SOK LITERALLY ’0%, ; 
DCL INFINITE LITERALLY “’OFFFFH’; 


OCL CMMXSRESPONSESMATLSOX, 
CONNECTIONSIO ) TOKEN; 
dcl segment$p pointer - 
del segment$t pointer_overlay at(3segment3p) initial (0,0); 


DCL CRESPONSESPTR, 

EXCEPTIONSPTR) POINTER, 
DCL CEXCEPTION, FULLSDELVR) WORD, 
DCL RESPONSESWORD WORD, 


DCL MESSAGESTEXT BASED SEGMENTSp (16) BYTE; 
OCL INGEX BYTE, 
DCL MESSSBUFF (16) BYTE; 


DCL THSINPUT3MB (12) BYTE DATA (10-°RQTHNORMIN’-O); 
DCL THSOUTPUTSMS (13) BYTE DATA (11-°RQTHNORMOUT’-O); 
DCL (€CC,/CI-/ROOTSJCB) TOKEN; 
dcl th$segsptr pointer ;- 
dcl th3seg$tokn pointer_overley atCath$segsptr) initial(0,0); 


DCL THSSEGMENT BASED THSSEGSptr STRUCTURE (¢ 
FUNCTION WORD, 
COUNT WORD, : 
XCEPT WORD, 
“ACTUAL WORD, 
MESSAGE (16) 8YTED, 
DCL THSWRITS LITERALLY °%5%; 
DCL THSREAD LITERALLY “17%; 
DCL THSRESPONSESMAITLBOX TOKEN, 
OCL LF LITERALLY “’QAH’, 
OCL CR LITERALLY “’OOH’, 
DCL SIGNON (13) BYTE DATA (€% MMX TESTER’-LF-CR); 
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* 

x TITLE: MMX INTERFACE EXTERNAL DECLARATIONS: 
* FOR COMPILER WITH SELECTOR TYPE SUPPORT. 
* : 
* DATE: 07-12-81 

* 

* REVISION: 1.0 

* 

x LANGUAGE: PLM/36 

x 
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CQFIND: PROCEDURE CsystemS$portsname, 
' statusfpointer) 
SELECTOR 
EXTERNAL, 
DECLARE systemSportSname WORD, 
DECLARE statusSpointer POINTER, 
END CQFINO, 


CQLOSE: PROCEDURE (Cconnections$id, 
status$pointer) 
EXTERNAL, | 
DECLARE connectionSid SELECTOR, 
DECLARE statustpointer PCINTER, 
END CLOSE; 


CQACTV: PROCEDURE (CsystemSportiname, 
_ gstatusSpointer) 
SELECTOR 
EXTERNAL; 
DECLARE systemSport3name WORD; 
DECLARE statusSyvointer POINTER, 
END CQACTV,; 


CADACT: PROCEDURE, CsystemSportiname, 
statusSpointer) 
EXTERNAL; 
DECLARE systemSportSname WORD; 
DECLARE statusspointer POINTER, 
END CQDACT; 


CQXFER: PROCEDURE (conneactions$id-, 
messageStoken, 
xferstflag, 
messagaSlength, 
- statusfpointer) 
EXTERNAL? 
DECLARE connectionsid SELECTOR, 
DECLARE messageStoken SELECTOR, 
DECLARE xfersflag WORD, . 
DECLARE messageSlength WORD; 
DECLARE statusSpointer POINTER, 
END CQXFERs 
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rmx86 primitive calls x/ 


RQSCREATESSESMENT: PROCEDURE (Csizervexcpt3ptr) 
SECEECTOR EXTERNAL? 
DECLARE size WORD, 
DECLARE excpt3ptr POINTER; 

END RQSCREATESSEGMENT; 

RQEDELETESSEGMENT: PROCEDURE Csegmentvexcpt$ptr) 
EXTERNAL, 
DECLARE seament SELECTOR, 
DECLARE excpt$ptr POINTER; 

END RQSDELETESSEGMENT; | 


RQSCREATESMAILBOX: PROCEDURE (mailboxSflagsvexcptiptr) 


SELECTOR EXTERNAL, 

DECLARE mailbox3flags wORD, 

DECLARE excptSptr POINTER, 
END RQSCREATESMAIL30X, 


RQSOELETESMAILBOX: PROCEDURE (mailboxsexcpt$ptr) 
EXTERNAL, 
DECLARES mailbox SELECTOR; 
DECLARE excptSptr POINTER; 


END RQSDELETESMAILBOX, 


RQSSENDSMESSAGE: PROCEDURE (mailbox, object, response, excpt$ptr) 


EXTERNAL, cs 
DECLARE (mailboxvobjectr-response) SELECTOR, 
DECLARE excpt$ptr POINTER, 

END RQSSENOSMESSAGE, 


RQERECEIVESMESSAGE: PROCEDURE (mailbox,timeSlimit-responsesptreexcpt$ptr) 


SELECTOR EXTERNAL, 

DECLARE mailbox SELECTOR; 

DECLARE timeSlimit WORD, 

DECLARE CresponseSntrevexcotsptr) POINTER; 
END RSQ3RECEIVESMESSASGE; 


RQSGETSSIZE: PROCEDURE (segmentvexcpt$ptr) 
WORD EXTERNAL; 
DECLARE segment SELECTOR; 
DECLARE excpt3ptr POINTER; 
END RQSGETSSIZE; 
RQSENDSINITSTASK: PROCEDURE 
EXTERNAL; 
END RQEENDSINITSTASK? 


RQSLGCOKUPSOBJECT: PROCEDURE (job, 


name, 
timeSlimit, 
excpt$ptr). 

SELECTOR 

EXTERNAL, 


DECLARE job SELECTOR; 
DECLARE name POINTER, 
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88 2] DECLARE timeSlimit WORD, 
Bg 2 DECLARE excpt$ptr POINTER, 
90 2=~=62 END RO@SLOCKUPSO3JECT, 
91 1 RQSGETSTASKSTOKENS: PROCEDURE (Cselection, 
axcpt3ptr) 
SELECTOR 
EXTERNALS 
92 2 DECLARE selection 3YTE- 
93 2 DECLARE excptfptr POINTER, 
94 2 END RQSGETSTASKSTOKENSs | 
95 1 RQOSCREATESREGION: PROCEDURE (flag, 
excotSptr) 
SELECTOR 
EXTERNAL, 
96 2 DECLARE flag WORD, 
97 2 DECLARE excptSptr POINTER, 
98 2 END RQSCREATESREGION, 
99 1 RQOSRECEIVELCONTROL: PROCEDURE (region, 
—s excpt3ptr) 
7 EXTERNAL; | 
100 2 DECLARE region SELECTOR- 
101 2 DECLARE excptSptr POINTER; 
102 2 END RQSRECEIVESCONTROL, © 
103 1 ROSSENDSCONTRCL: PROCEDURE CexcptSptr) 
EXTERNALS 
104 2 DECLARE excpt$ptr POINTER; 
105 2 


ENO RQSSENDECONTROL, 
SEJECT 


Tenner 
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DO FOREVER, 


|x 
CALL ENDSINITSTASK TO RESTART ROOT JOS 


TOKENS FOR TERMINAL HANDLER MAILBOXES 
ROOTSJQBRB = ROSGETSTASKSTOKENS (C3,aEXCEPTION), 


RGRLOOKUPSOBJECT (ROOTSJOB, BTHSOUTPUTSMB, INFINITE, Q=EXCEPTION)?; 


CO = 
CI = RQEXOOKUPSOBJECT (ROOTSJO8, ATHEINPUTSMB, INFINITE, EXCEPTION): 
/* . 


CREATE\TH MESSAGE SEGMENT AND RESPONSE MAILBOX 


x/ ; 

th$seg$toknwbase = RQSCREATESSEGMENT (32, DEXCEPTION),; © 
THSRESPONSESMAILSOX = RQSCREATESMAILBOX (CO, EXCEPTION); 
/* 


THESEGMENT.FUN 
THSSEGMENT.COUN 
CALL MOVB CASIGNON, AthSsagment.amessage, 13)%7 


CALL RQSSENOSMESSAGE (CO, thisecStokn.abase, THSRESPONSESMAILBOX, G@EXCEPTION), 


/ * : : 
FIND THE PORT FQR THE DEVICE ON WHICH.THE RCVR TASK RUNS 
* ; 
CONNECTIONSID = CQFIAND ( RCVSPORT, SEXCEPTION)Z 


ACTIVE THIS DEVICE 
MMXSRESPONSESMATL3OX 


PORT 
CQACTV (CXMITSPORT, AEXCEPTION)S 


/ x. : 

CREATE MMX MESSAGE S 
x/ 
segment$t.base = RQSCREATE\SSEGMENT (32, EXCEPTION); 


/* . 
LOOP READING CONSOL AND SENDING MESSAGES TO THE RECEIVER TASK 


x / 


WAIT FOR CONSOL MESSAGE 

7 neeaaeRekdabaee = RQSRECEIVE GE (THSRESPCNSESMAILBOX, INFINITE, 
. 3 SEENORDs @EXCEPTION) > | ; 

” peap CONSOL FOR MESSAGE TO SEND 

THSSEGHENT. FUNCTION | 


= THEREAD; 
THSSEGMENT.COUNT = 12; 
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xf . 

THSSEGMENT.FUNCTION = THSWRITEZ 

THSSEGMENT.~COUNT = 27 
THSSEGMENT.MESSAGECQ)= CR; 


CALL QQSSENDSMESSAGE (CI, thisegStokn.abases THSRESPONSESMAILBOX, DEXCEPTION), 


oknebase = RQSRECEIVESMESSAGE CTHSRESPCNSESMAILBOX, INFINITE, 
SRESPONSESWORD, DEXCEPTION)s 


thisegs 


CALL MOVS 2THSSEGMENT.MESSAGE, QOMESSAGESTEXT, THSSEGMENT.«ACTUAL) s 


/*x 
SEND CONSQL MESSAGE TO RCV TASK AS MMX MESSAGE 
xf 
FULLSCELVR & 0; | 7 
CALL CQXFER KCONNECTIONSIO-segment$t.base,FULLSDELVR/-OFFFFH,-XEXCEPTION); 


/* ’ 
WAIT FOR RETURNING MMX MESSAGE 


segment$t.base = RQSRECEIVESMESSAGE CMMXSRESPONSESMAILBOX, INFINITE, 
| BRESPONSEFWORD, BEXCEPTION); . 


ECHO RETURNING MMX \MESSAGE TO CONSOL ' 
x / 
CALL sinadiinainia Wa QTHSSEGMENT.MESSAGE, 16); 


THSSEGMENT.FUNCTION = THSWRITE;s 
THSSEGMENT.COUNT = 16,7. 7 
CALL RQSSENDSMESSAGE (CO, WhSsegstoknsabase, THIRESPONSESMAILBOX, QEXCEPTION), 


MESSAGE CTHSRESPONSESMAILBOX, INFINITE, 


thsseg$tokn.abase = ROCSRECEIVES 
Q@RESPONSESWORD, JDEXCEPTION), 


/* 


SEND LF-CR AND THEN READ NEXT\ LINE 


THSSESMENT.MESSAGE(1)= LF; 
CALL RQSSENDSMESSAGE (CO, th3segdtokn.akase, THSRESPONSESMAILBOX, SEXCEPTION), 


END? /* FOREVER LOOP */ 


END TRANSMITSTASK, 
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CROSS REFERENCE LISTING 


NAME, ATTRIBUTES, 


CO . ew» « 
CONNECTIONIO 
CONNECTIONID 
CONNECTIONID 
CQACTV . 
CQDACT . 
CQFIND . 
CQLOSE . 
CQXFER . 
CR « « 2 
DCL. « ss 


SOKs a a s td a s 


‘EXCEPTION. 


EXCEPTIONPTR 


EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 
EXCPTPTR 


EXCPTPTR 


FLAG «. s 
FOREVER, 
FULLOELVR 
INDEX. « e . 
INPELNITE. s . 
JOB. « « . 
LF ow 8 ew. . 
MAIL30X,.- . 
MATLBCX. . 
MATLBOX. . . 
MATLBOXELAGS " 
MESSAGELENGTH. 
-MESSAGETEXT. . 
rt 


EXCPTPTR . 


MESSAGETOKEN 
MESSBUFF . 
MMXRESPONSEMA 
MOVB .« =» » e 
NAME 2 «© « « 
O3JECT . . « 
POINTER_OVERLAY. 


e« ® 8s (Ws 6 8 8 8&8 a2 8&8 © & & 8 & 
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AND REFERENCES 


SELECTOR 109% 123 

SELECTOR 108* 115 132 138 — 

SELECTOR IN PROC (CQXFER) PARAMETER 48 

SELECTOR IN PROC (CQLOSE) PARAMETER 36 

SELECTOR 116% 127 

PROCEDURE SELECTOR EXTERNAL(2) STACK=0000H 

PROCEQURE EXTERNAL(3) STACK=0000H 

PROCEDURE SELECTOR EXTERNAL(O) STACK=0000H 

PROCEDURE EXTERNAL(1) STACK=GO00H 

PROCEOURE EXTERNAL(4) STACK=0000H 127 

LITERALLY ’ODH’ 30 136 

LITERALLY “DECLARE’ a) 4 5 
10. 44. 42° 455. 4a 4s 46 Ae OS 
22 23 24 25 26 27 28 29 

LITERALLY ‘0’ . 

WORD 107 108 109 110 111 #115 116 

123. 124 127 128 #132 133 138 

POINTER 

POINTER IN PROC CROSENDCONTROL) PARAMETER 

POINTER IN PROC CRQCREATEMAILBOX) PARAMETER 

POINTER IN PROC (RQLOOKUPOBJECT) PARAMETER 

POINTER IN PROC (RQRECEIVEMESSAGE) PARAMETER 

POINTER IN PROC (RQDELETEMAILBOX) PARAMETER 

POINTER IN PROC (RQCREATESEGMENT) PARAMETER 

POINTER IN PROC CROCREATEREGION) PARAMETER 

POINTER IN PROC (RQRECEIVECONTROL) PARAMETER 

POINTER IN. PROC CROQDELETESEGMENT) PARAMETER 

POINTER IN PROC (RQGETTASKTOKENS) PARAMETER 

POINTER IN PROC CRQGETSIZE) PARAMETER 

POINTER IN PROC (RQSENDMESSAGE) PARAMETER 

WORD IN PROC (RGCREATEREGION) PARAMETER 

LITERALLY “WHILE 17’ 119 

WORD 126x 127 

BY.TS 

LITERALLY ’OFFFFH’ 108 109 120 


SELECTOR IN PROC CRQLOOKUPOBJECT) PARAMETER 


LITERALLY 


SELECTOR IN PROC CRQRECEIVEMESSAGE) PARAMETER 
SELECTOR: IN 
SELECTOR IN 


"OAH" 30 137 


PROC (RQSENOMESSAGE) PARAMETER 
PROC CRQOELETEMAIL80X) PARAMETER 


WORD IN PROC CRQCREATEMAILBOX) PARAMETER 


WORD IN PROC (CQXFER) PARAMETER 51 

BYTE BASEO(SEGMENTP) ARRAY(16) 125 129 

SELECTOR IN PROC (CQXFER) PARAMETER 49 
BYTE ARRAY(16) | 

SELECTOR 117* 128 

BUILTIN 114 125 129 

POINTER IN PROC (RQLOOKUPOBJECT) PARAMETER 


SELECTOR IN PROC CRQSENDMESSAGE) PARAMETER 


LITERALLY 


~ffset word 


LITERALLY 


“structure base 
/*x offset part. */ 


es 116 


selector,/*x 
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0014H 
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CROSS“REFERENCE LISTING 


REGION a denis 
RESPONSE « « 
RESPONSEPTR. 
RESPONSEPTR. 
RESPONSEWORD 
ROOTUO9« we te ie 
ROCREATEMAILBOX. 
RQCREATEREGION . 
RQOCREATESEGMENT. 
RQDELETZMAIL30X. 
RQDELETESEGMENT. 
RQENDINITTASK. . 
ROGETSIZes, ww... 
RQGETTASKTOKENS. 
RQLOCKUPOBJECT . 
RQRECELVECONTROL 
RQRECELVEMESSAGE 


RQSENOCONTROL. 
RQSENOMESSAGE. 
SEGMENT. «2 2 
SEGMENT. « 
SEGMENTP . 
SEGMENTT . 

BASE . 

OFFSET 
SELECTION. 
SIGNON . . 
Se og Se ae, 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPOINTER. 
SYSTEMPORTNAME 
SYSTEMPORTNAME 
SYSTEMPORTNAME 
THINPUTMBs « « 
THOUTPUTMB « « « 
THREAD « « «© «6 


THRESPONSEMATILBOX 


THSEGMENT.s « « 
FUNCTION 
COUNT. 
XCEPT. 
ACTUAL 
MESSAGE 

THSEGPTR . 

THSEGTOKN. 
BASE . 
OFFSET 

THWRITE. » 

TIMELIMIT. . 

TIMELIMIT. . 

TOKENG Se os 
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SELECTOR IN PROC (CRQRECEIVECONTROL) PARAMETER 100 

SELECTOR IN PROC (RQSENDMESSAGE) PARAMETER 71 

POINTER is, 

POINTER IN PROC (RORECEIVEMESSAGE) PARAMETER 77 

WORD 120 124 128 133 - | 

SELECTOR 107* 108 109 

PROCEDURE SELECTOR EXTERNAL(7) STACK=O0000H 144 
PROCEDURE SELECTOR EXTERNAL(15) STACK=0000H 

PROCEDURE SELECTOR EXTERNAL(5) STACK=O000H 110 118 

PROCEDURE EXTERNAL(8) STACK=0000H 

PROCEDURE EXTERNAL(6) STACK=O0000H , 

PROCEDURE EXTERNAL(12) STACK=0000H 106° 

PROCEDURE WORD: EXTERNAL(11) STACK=OQ000H | | 
PROCEDURE SELECTOR EXTERNAL(14) STACK=O0000H 107 
PROCEDURE SELECTOR =XTERNAL(13) STACK=0000H 108 109 
PROCEDURE EXTERNAL(16) STACK=0000H 

PROCEDURE SELECTOR EXTERNAL(10) STACK=0000H 120 124 128 
133 

PROCEDURE EXTERNAL(17) STACK=0000H 

PROCEDURE EXTERNAL(9) STACK=O0000H 115 123 132 138 
SELECTOR IN PROC (RQDELETESEGMENT) PARAMETER 59 
SELECTOR IN PROC (RQGETSIZE) PARAMETER 80 

POINTER 12 125 129 

STRUCTURE AT INITIAL 

SELECTOR 118% 127 128% 

WORD 

3YTE IN PROC (CRQGGETTASKTOKENS) PARAMETER 92 

BYTE ARRAY(13) DATA 114 

WORD IN PROC CRQCREATESEGMNENT) PARAMETER 55 

POINTER IN PROC (CQXFER) PARAMETER 52 


“POINTER IN PROC C(CQDACT) PARAMETER |S 


POINTER IN PROC (CQACTV) PARAMETER | 41 | | 
POINTER IN PROC (CQLOSE) PARAMETER 37 : 

POINTER IN PROC (CQFIND) PARAMETER 3B 

WORD IN PROC (CQDACT) PARAMETER 44 

WORD IN PROC (CQGACTV) PARAMETER : 40 

WORD IN PROC (CQGFINO) PARAMETER 32 

BYTE ARRAY(12) CATA 109 

BYTE ARRAY(13) CATA | 108 

LITERALLY. 24" - 429 

SELECTOR Ate TTS OTAD eS: “Tes. “Tad “1SS. 158 

STRUCTURE BASED(THSEGPTR) 

WORD 112% 121% 130% 134% 

WORD 113* 122% 131% 135% 

WORD : 

WORD 125 

BYTE ARRAY (16) 144-4 
POINTER 25: “th A2 
STRUCTURE AT INITIAL 

SELECTOR 110% 115 120% 123 124% 132 4133* 138 
WORD 

LITERALLY “5 112 130 134 

WORD IN PROC (RGLOOKUPOBJECT) PARAMETER | 88 

WORD IN PROC (RCRECEIVEMESSAGE) PARAMETER 76 
LITERALLY “SELECTOR” - “0... sed eae | 

PROCEDURE STACK=Q00CH 


25 129 136* 137% 
a: “129 
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8 OOOOH 2 XFERFLAG 
6 XMITPORT 


j~ 


MODULE INFORMATION: 


CODE AREA SIZE = O19CH. 
CONSTANT AREA SITZE = O026H 
VARIABLE AREA SIZE = 0028H 
MAXIMUM STACK SIZE = OOOCH 


295 LINES READ 
O PROGRAM WARNINGS 
O PROGRAM ERRORS 


END OF PL/M-86 COMPILATION 
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WORD IN PROC (CQXFER) PARAMETER 


LITERALLY 


a Gas 


117 
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